home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / gfx / edit / amifig31_68k.lha / AmiFIG3.1_68000 / Rexx / test.rx
Text File  |  1999-07-18  |  1KB  |  94 lines
  1. /*rx
  2.  *  $VER: test.rx 1.0 (28.2.99)
  3.  *  test.rx ... ARexx program to test AmiFIG's ARexx port.
  4.  */
  5.  
  6. Options results
  7.  
  8. if ~show(ports, "AMIFIG.0") then do
  9.  return
  10. end
  11.  
  12. say "got port"
  13.  
  14. address("AMIFIG.0")
  15.  
  16. Clear "test.fig"
  17.  
  18. SetLineWidth 1
  19. SetJoinStyle 1
  20. SetCapStyle 1
  21. SetDepth 10
  22. SetUnfilled
  23. SetPenColor 0
  24.  
  25. SetBaseSystem imperial
  26. DrawRectBox 1 1.5 3 4
  27.  
  28. SetBaseSystem metric
  29. DrawRectBox 1 1.5 3 4
  30.  
  31. SetBaseSystem dpi
  32.  
  33. StartPolyline 0 0
  34. StartPolygon 0 0
  35. AddLineSegment 100 100
  36. EndLine 100 200
  37.  
  38. DrawCircle 100 100 20.3
  39. SetEllipseAngle 380.2
  40. DrawEllipse 100 100 40.6 20.3
  41.  
  42. SetZoomScale 100.0
  43.  
  44. SetFontSize 16
  45. SetTextAdjustment 0
  46. SetRigidTextFlag 1
  47. SetSpecialTextFlag 1
  48. SetTextAngle 0
  49. 'DrawText 30 160 "Hello World"'
  50. SetTextAngle 10
  51. 'DrawText 30 180 "Hello World"'
  52.  
  53. DrawArc 20 230 10 280 80 310
  54. DrawClosedArc 150 200 150 300 310 360
  55.  
  56. SetLineWidth 10
  57.  
  58. DrawRectBox 20 30 210 210
  59.  
  60. SetZoomScale 150.0
  61.  
  62.  
  63. SetLineWidth 5
  64. SetArrowStyle 2 1
  65. StartPolyline 0 0
  66. EndLine 100 200
  67.  
  68. StartInterpSpline 10 10
  69. AddSplineSegment 100 300
  70. AddSplineSegment 100 200
  71. EndSpline 200 200
  72.  
  73. SaveFile "ram:test.fig"
  74.  
  75. "ExportFile ram:test.iff iff 10 10 400 300"
  76.  
  77. /*DrawPicture 100 100 300 240 "bugs.gif"*/
  78.  
  79. SetLineWidth 3
  80. SetPenColor 1
  81. SetFillColor 31
  82. SetFillShade 36
  83.  
  84. StartPolyline 200 200
  85. AddLineSegment 300 200
  86. EndLine 300 400
  87.  
  88. SetPattern 1
  89. StartPolyline 60 340
  90. AddLineSegment 100 420
  91. EndLine 250 350
  92.  
  93. say AMIFIG.LASTERROR
  94.